home *** CD-ROM | disk | FTP | other *** search
/ Super CD / Super CD.iso / geomitri / rcd / ribsload.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-06-10  |  1.4 KB  |  26 lines
  1. 2       ' This programme is used to design calculate  RIBBED SLAB LOADING
  2. 3       ' This programme uses  Advanced Basic Language  (IBM - BASICA )
  3. 4       ' This programme is saved under the name   [ RIBSLOAD ]
  4. 5       ' Prepared by   AMJAD J. SHAIR       12/1/1986
  5. 6  SCREEN 0,1 :WIDTH 40 :COLOR 15,1,0 :CLS :LOCATE 5
  6. 7  PRINT "       RIBS LOADING CALCULATIONS                                                            PREPERED BY   :                                                              AMJAD JAMIL EL-SHAIR "
  7. 8  LOCATE 25,5 :PRINT "PRESS SPACE BAR TO CONTINUE ";
  8. 9  Y$=INKEY$ :IF Y$<>" " THEN 9
  9. 10  SCREEN 0,1 :WIDTH 80 :COLOR 15,1,0 :CLS :LOCATE 3
  10. 15  PRINT "          ****************************************************"
  11. 20  PRINT "          *******       RIBBED SLAB SYSTEMS MENU       *******"
  12. 30  PRINT "          ****************************************************"
  13. 40  PRINT :PRINT
  14. 50  PRINT "                  [ O ] - ONE WAY RIBBED SLAB SYSTEM      "
  15. 55  PRINT
  16. 60  PRINT "                  [ T ] - TWO WAY RIBBED SLAB SYSTEM      "
  17. 65  PRINT
  18. 70  PRINT "                  [ R ] - RETURN TO RCDESIGN MAIN MENU    "
  19. 80  PRINT :PRINT
  20. 90  PRINT "          ENTER THE CHOSEN SYSTEM INITIALS SHOWN IN BRACKETS :";
  21. 100  RSC$=INKEY$ :IF RSC$<>"O" AND RSC$<>"o" AND RSC$<>"T" AND RSC$<>"t" AND RSC$<>"R" AND RSC$<>"r" THEN 100
  22. 110  IF RSC$="O" OR RSC$="o" THEN PRINT " ONE WAY RIBS " :CHAIN "ONEWAYRL"
  23. 120  IF RSC$="T" OR RSC$="t" THEN PRINT " TWO WAY RIBS " :CHAIN "TWOWAYRL"
  24. 130  IF RSC$="R" OR RSC$="r" THEN PRINT " RCDESIGN MENU" :CHAIN "RCDESIGN",2500
  25. 140  END
  26.